/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / fractals / _tripatron / fastjanim

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 17 f4 20 3e 3a | 34 2e 24 2e 52 2e 46 61 |..... >:|4.$.R.Fa|
|00000010| 73 74 4a 41 6e 69 6d 0d | 00 14 16 f4 20 41 52 4d |stJAnim.|.... ARM|
|00000020| 20 63 6f 64 65 20 62 79 | 20 5a 65 75 73 0d 00 1e | code by| Zeus...|
|00000030| 24 f4 20 44 65 76 65 6c | 6f 70 65 64 20 62 79 20 |$. Devel|oped by |
|00000040| 52 4a 47 52 45 45 4e 20 | 28 4f 72 62 69 74 61 6c |RJGREEN |(Orbital|
|00000050| 29 0d 00 28 10 f4 20 41 | 70 72 69 6c 20 31 39 39 |)..(.. A|pril 199|
|00000060| 31 0d 00 32 05 3a 0d 00 | 3c 09 eb 31 33 3a 87 0d |1..2.:..|<..13:..|
|00000070| 00 46 0a f2 41 73 73 65 | 6d 0d 00 50 19 e3 20 70 |.F..Asse|m..P.. p|
|00000080| 6f 73 3d 32 2a af 20 b8 | 20 30 20 88 20 2d 30 2e |os=2*. .| 0 . -0.|
|00000090| 30 31 0d 00 51 2c 20 20 | 20 21 78 6a 75 6c 69 61 |01..Q,  | !xjulia|
|000000a0| 76 61 6c 75 65 3d 28 28 | 31 2e 31 2a 9b 28 70 6f |value=((|1.1*.(po|
|000000b0| 73 29 2b 30 2e 33 29 2a | 26 32 30 30 30 29 0d 00 |s)+0.3)*|&2000)..|
|000000c0| 52 2c 20 20 20 21 79 6a | 75 6c 69 61 76 61 6c 75 |R,   !yj|uliavalu|
|000000d0| 65 3d 28 28 31 2e 30 2a | b5 28 70 6f 73 29 2b 30 |e=((1.0*|.(pos)+0|
|000000e0| 2e 31 29 2a 26 32 30 30 | 30 29 0d 00 5a 0e 20 20 |.1)*&200|0)..Z.  |
|000000f0| 20 d6 20 6a 75 6c 69 61 | 0d 00 64 05 ed 0d 00 6e | . julia|..d....n|
|00000100| 05 e0 0d 00 78 05 3a 0d | 00 82 0b dd f2 41 73 73 |....x.:.|.....Ass|
|00000110| 65 6d 0d 00 8c 11 de 63 | 6f 64 65 25 20 26 31 30 |em.....c|ode% &10|
|00000120| 30 30 30 0d 00 96 22 f4 | 20 52 65 67 69 73 74 65 |000...".| Registe|
|00000130| 72 20 76 61 72 69 61 62 | 6c 65 20 61 6c 6c 6f 63 |r variab|le alloc|
|00000140| 61 74 69 6f 6e 0d 00 a0 | 23 70 63 20 20 3d 31 35 |ation...|#pc  =15|
|00000150| 3a 6c 69 6e 6b 3d 31 34 | 3a 73 70 20 20 3d 31 33 |:link=14|:sp  =13|
|00000160| 3a 64 69 73 71 3d 31 34 | 0d 00 aa 33 78 70 6f 73 |:disq=14|...3xpos|
|00000170| 3d 31 32 3a 79 70 6f 73 | 3d 31 31 3a 78 20 20 20 |=12:ypos|=11:x   |
|00000180| 3d 31 30 3a 79 20 20 20 | 3d 20 39 3a 72 65 73 71 |=10:y   |= 9:resq|
|00000190| 3d 20 38 3a 69 6d 73 71 | 3d 20 37 0d 00 b4 3b 72 |= 8:imsq|= 7...;r|
|000001a0| 65 20 20 3d 20 36 3a 69 | 6d 20 20 3d 20 35 3a 63 |e  = 6:i|m  = 5:c|
|000001b0| 74 72 20 3d 20 34 3a 70 | 74 72 20 3d 20 33 3a 6d |tr = 4:p|tr = 3:m|
|000001c0| 65 6d 20 3d 20 32 3a 74 | 61 62 20 3d 20 31 3a 70 |em = 2:t|ab = 1:p|
|000001d0| 72 6f 64 3d 20 30 0d 00 | be 0f e3 70 61 73 73 3d |rod= 0..|...pass=|
|000001e0| 30 b8 32 88 32 0d 00 c8 | 19 50 25 3d 63 6f 64 65 |0.2.2...|.P%=code|
|000001f0| 25 2b 31 36 2d 63 6f 64 | 65 25 20 83 31 36 0d 00 |%+16-cod|e% .16..|
|00000200| d2 0c 5b 4f 50 54 70 61 | 73 73 0d 00 dc 19 2e 76 |..[OPTpa|ss.....v|
|00000210| 64 75 6c 69 73 74 20 20 | 20 20 20 45 51 55 44 20 |dulist  |   EQUD |
|00000220| 31 34 38 0d 00 e6 18 2e | 65 6e 64 6c 69 73 74 20 |148.....|endlist |
|00000230| 20 20 20 20 45 51 55 44 | 20 2d 31 0d 00 f0 17 2e |    EQUD| -1.....|
|00000240| 73 63 72 65 65 6e 73 74 | 61 72 74 20 45 51 55 44 |screenst|art EQUD|
|00000250| 20 30 0d 00 fa 26 2e 78 | 6a 75 6c 69 61 76 61 6c | 0...&.x|juliaval|
|00000260| 75 65 20 45 51 55 44 20 | 2d 28 30 2e 37 36 36 33 |ue EQUD |-(0.7663|
|00000270| 38 2a 26 32 30 30 30 29 | 0d 01 04 26 2e 79 6a 75 |8*&2000)|...&.yju|
|00000280| 6c 69 61 76 61 6c 75 65 | 20 45 51 55 44 20 2b 28 |liavalue| EQUD +(|
|00000290| 30 2e 31 30 37 36 39 2a | 26 32 30 30 30 29 0d 01 |0.10769*|&2000)..|
|000002a0| 0e 23 2e 78 73 74 61 72 | 74 76 61 6c 75 65 20 45 |.#.xstar|tvalue E|
|000002b0| 51 55 44 20 2d 28 31 2e | 32 30 2a 26 32 30 30 30 |QUD -(1.|20*&2000|
|000002c0| 29 0d 01 18 23 2e 79 73 | 74 61 72 74 76 61 6c 75 |)...#.ys|tartvalu|
|000002d0| 65 20 45 51 55 44 20 2b | 28 31 2e 30 30 2a 26 32 |e EQUD +|(1.00*&2|
|000002e0| 30 30 30 29 0d 01 22 17 | 2e 78 76 61 6c 75 65 20 |000)..".|.xvalue |
|000002f0| 20 20 20 20 20 45 51 55 | 44 20 30 0d 01 2c 17 2e |     EQU|D 0..,..|
|00000300| 79 76 61 6c 75 65 20 20 | 20 20 20 20 45 51 55 44 |yvalue  |    EQUD|
|00000310| 20 30 0d 01 36 18 2e 69 | 74 65 72 6d 61 78 20 20 | 0..6..i|termax  |
|00000320| 20 20 20 45 51 55 44 20 | 34 30 0d 01 37 18 2e 63 |   EQUD |40..7..c|
|00000330| 6f 6c 6f 75 72 61 64 64 | 20 20 20 45 51 55 42 20 |olouradd|   EQUB |
|00000340| 32 32 0d 01 40 05 3b 0d | 01 4a 0a 2e 6a 75 6c 69 |22..@.;.|.J..juli|
|00000350| 61 0d 01 54 16 53 54 4d | 46 44 20 28 73 70 29 21 |a..T.STM|FD (sp)!|
|00000360| 2c 7b 6c 69 6e 6b 7d 0d | 01 5e 3f 41 44 52 20 52 |,{link}.|.^?ADR R|
|00000370| 30 2c 76 64 75 6c 69 73 | 74 3a 41 44 52 20 52 31 |0,vdulis|t:ADR R1|
|00000380| 2c 73 63 72 65 65 6e 73 | 74 61 72 74 3a 53 57 49 |,screens|tart:SWI|
|00000390| 20 22 4f 53 5f 52 65 61 | 64 56 64 75 56 61 72 69 | "OS_Rea|dVduVari|
|000003a0| 61 62 6c 65 73 22 0d 01 | 68 17 4c 44 52 20 70 74 |ables"..|h.LDR pt|
|000003b0| 72 2c 73 63 72 65 65 6e | 73 74 61 72 74 0d 01 72 |r,screen|start..r|
|000003c0| 20 4d 4f 56 20 78 70 6f | 73 2c 23 26 30 30 3a 4d | MOV xpo|s,#&00:M|
|000003d0| 4f 56 20 79 70 6f 73 2c | 23 26 32 30 30 0d 01 7c |OV ypos,|#&200..||
|000003e0| 22 4c 44 52 20 78 2c 78 | 73 74 61 72 74 76 61 6c |"LDR x,x|startval|
|000003f0| 75 65 3a 53 54 52 20 78 | 2c 78 76 61 6c 75 65 0d |ue:STR x|,xvalue.|
|00000400| 01 86 22 4c 44 52 20 79 | 2c 79 73 74 61 72 74 76 |.."LDR y|,ystartv|
|00000410| 61 6c 75 65 3a 53 54 52 | 20 79 2c 79 76 61 6c 75 |alue:STR| y,yvalu|
|00000420| 65 0d 01 90 05 3b 0d 01 | 9a 0d 2e 6d 61 69 6e 6c |e....;..|...mainl|
|00000430| 6f 6f 70 0d 01 a4 13 4c | 44 52 20 63 74 72 2c 69 |oop....L|DR ctr,i|
|00000440| 74 65 72 6d 61 78 0d 01 | ae 1f 4c 44 52 20 72 65 |termax..|..LDR re|
|00000450| 2c 78 76 61 6c 75 65 3a | 4c 44 52 20 69 6d 2c 79 |,xvalue:|LDR im,y|
|00000460| 76 61 6c 75 65 0d 01 b8 | 27 4c 44 52 20 78 2c 78 |value...|'LDR x,x|
|00000470| 6a 75 6c 69 61 76 61 6c | 75 65 3a 4c 44 52 20 79 |juliaval|ue:LDR y|
|00000480| 2c 79 6a 75 6c 69 61 76 | 61 6c 75 65 0d 01 c2 05 |,yjuliav|alue....|
|00000490| 3b 0d 01 cc 0b 2e 72 65 | 70 65 61 74 0d 01 d6 26 |;.....re|peat...&|
|000004a0| 41 44 44 53 20 64 69 73 | 71 2c 72 65 2c 69 6d 3a |ADDS dis|q,re,im:|
|000004b0| 52 53 42 4d 49 20 64 69 | 73 71 2c 64 69 73 71 2c |RSBMI di|sq,disq,|
|000004c0| 23 30 0d 01 e0 16 4d 55 | 4c 20 70 72 6f 64 2c 64 |#0....MU|L prod,d|
|000004d0| 69 73 71 2c 64 69 73 71 | 0d 01 ea 2f 43 4d 50 20 |isq,disq|.../CMP |
|000004e0| 72 65 2c 23 26 30 30 3a | 52 53 42 4d 49 20 72 65 |re,#&00:|RSBMI re|
|000004f0| 2c 72 65 2c 23 26 30 30 | 3a 4d 55 4c 20 72 65 73 |,re,#&00|:MUL res|
|00000500| 71 2c 72 65 2c 72 65 0d | 01 f4 2f 43 4d 50 20 69 |q,re,re.|../CMP i|
|00000510| 6d 2c 23 26 30 30 3a 52 | 53 42 4d 49 20 69 6d 2c |m,#&00:R|SBMI im,|
|00000520| 69 6d 2c 23 26 30 30 3a | 4d 55 4c 20 69 6d 73 71 |im,#&00:|MUL imsq|
|00000530| 2c 69 6d 2c 69 6d 0d 01 | fe 34 41 44 44 20 64 69 |,im,im..|.4ADD di|
|00000540| 73 71 2c 72 65 73 71 2c | 69 6d 73 71 3a 43 4d 50 |sq,resq,|imsq:CMP|
|00000550| 20 64 69 73 71 2c 23 26 | 31 30 30 30 30 30 30 30 | disq,#&|10000000|
|00000560| 3a 42 50 4c 20 75 6e 74 | 69 6c 0d 02 08 28 53 55 |:BPL unt|il...(SU|
|00000570| 42 20 69 6d 2c 70 72 6f | 64 2c 64 69 73 71 3a 41 |B im,pro|d,disq:A|
|00000580| 44 44 20 69 6d 2c 79 2c | 69 6d 2c 41 53 52 20 23 |DD im,y,|im,ASR #|
|00000590| 31 33 0d 02 12 28 53 55 | 42 20 72 65 2c 72 65 73 |13...(SU|B re,res|
|000005a0| 71 2c 69 6d 73 71 3a 41 | 44 44 20 72 65 2c 78 2c |q,imsq:A|DD re,x,|
|000005b0| 72 65 2c 41 53 52 20 23 | 31 33 0d 02 1c 1e 53 55 |re,ASR #|13....SU|
|000005c0| 42 53 20 63 74 72 2c 63 | 74 72 2c 23 31 3a 42 4e |BS ctr,c|tr,#1:BN|
|000005d0| 45 20 72 65 70 65 61 74 | 0d 02 26 0a 2e 75 6e 74 |E repeat|..&..unt|
|000005e0| 69 6c 0d 02 30 05 3b 0d | 02 3a 30 43 4d 50 20 63 |il..0.;.|.:0CMP c|
|000005f0| 74 72 2c 23 30 3a 4c 44 | 52 4e 45 20 69 6d 2c 69 |tr,#0:LD|RNE im,i|
|00000600| 74 65 72 6d 61 78 3a 52 | 53 42 4e 45 20 63 74 72 |termax:R|SBNE ctr|
|00000610| 2c 63 74 72 2c 69 6d 0d | 02 3b 28 4c 44 52 42 20 |,ctr,im.|.;(LDRB |
|00000620| 64 69 73 71 2c 63 6f 6c | 6f 75 72 61 64 64 3a 41 |disq,col|ouradd:A|
|00000630| 44 44 20 63 74 72 2c 63 | 74 72 2c 64 69 73 71 0d |DD ctr,c|tr,disq.|
|00000640| 02 44 2e 4d 4f 56 20 6d | 65 6d 2c 6d 65 6d 2c 4c |.D.MOV m|em,mem,L|
|00000650| 53 52 20 23 30 38 3a 84 | 52 20 6d 65 6d 2c 6d 65 |SR #08:.|R mem,me|
|00000660| 6d 2c 63 74 72 2c 4c 53 | 4c 20 23 32 34 0d 02 4e |m,ctr,LS|L #24..N|
|00000670| 2a 4c 44 52 20 78 2c 78 | 76 61 6c 75 65 3a 41 44 |*LDR x,x|value:AD|
|00000680| 44 20 78 2c 78 2c 23 31 | 32 38 3a 53 54 52 20 78 |D x,x,#1|28:STR x|
|00000690| 2c 78 76 61 6c 75 65 0d | 02 4f 14 41 44 44 20 78 |,xvalue.|.O.ADD x|
|000006a0| 70 6f 73 2c 78 70 6f 73 | 2c 23 31 0d 02 58 2e 54 |pos,xpos|,#1..X.T|
|000006b0| 53 54 20 78 70 6f 73 2c | 23 33 3a 53 54 52 45 51 |ST xpos,|#3:STREQ|
|000006c0| 20 6d 65 6d 2c 5b 70 74 | 72 5d 2c 23 34 3a ec 51 | mem,[pt|r],#4:.Q|
|000006d0| 20 6d 65 6d 2c 23 26 30 | 30 0d 02 62 1e 43 4d 50 | mem,#&0|0..b.CMP|
|000006e0| 20 78 70 6f 73 2c 23 31 | 36 30 3a 42 4d 49 20 6d | xpos,#1|60:BMI m|
|000006f0| 61 69 6e 6c 6f 6f 70 0d | 02 6c 14 41 44 44 20 70 |ainloop.|.l.ADD p|
|00000700| 74 72 2c 70 74 72 2c 23 | 31 36 30 0d 02 76 30 4d |tr,ptr,#|160..v0M|
|00000710| 4f 56 20 78 70 6f 73 2c | 23 26 30 30 3a 4c 44 52 |OV xpos,|#&00:LDR|
|00000720| 20 78 2c 78 73 74 61 72 | 74 76 61 6c 75 65 3a 53 | x,xstar|tvalue:S|
|00000730| 54 52 20 78 2c 78 76 61 | 6c 75 65 0d 02 80 49 4c |TR x,xva|lue...IL|
|00000740| 44 52 20 79 2c 79 76 61 | 6c 75 65 3a 53 55 42 20 |DR y,yva|lue:SUB |
|00000750| 79 2c 79 2c 23 31 32 38 | 3a 53 54 52 20 79 2c 79 |y,y,#128|:STR y,y|
|00000760| 76 61 6c 75 65 3a 53 55 | 42 53 20 79 70 6f 73 2c |value:SU|BS ypos,|
|00000770| 79 70 6f 73 2c 23 34 3a | 42 4e 45 20 6d 61 69 6e |ypos,#4:|BNE main|
|00000780| 6c 6f 6f 70 0d 02 8a 05 | 3b 0d 02 94 22 4c 44 4d |loop....|;..."LDM|
|00000790| 46 44 20 28 73 70 29 21 | 2c 7b 6c 69 6e 6b 7d 3a |FD (sp)!|,{link}:|
|000007a0| 4d 4f 56 20 70 63 2c 6c | 69 6e 6b 0d 02 9e 05 3b |MOV pc,l|ink....;|
|000007b0| 0d 02 a8 05 5d 0d 02 b2 | 05 ed 0d 02 bc 05 e1 0d |....]...|........|
|000007c0| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+